#! usr/bin/perl -w
use strict;

sub main(){
	
# on vérifie qu'un parametre au moins est passé en argument
if
	my $outdir=$out{"path"};
	MAKEDIRE($outdir);

exit;
}

main();
